Technotools/Technotools (Chestnut CD-ROM)(1993).ISO/database/do1beta/array.do

Text File | 1991-07-29 | 199b | 10 lines

/*
    this is a test of dObject's Array class
*/
a = new(Array,[3,3,3]);
? "size of array is ",len(a);
? "dimensions of array are ",dim(a);
replace(a,[0,0,0],1);
? at(a,[0,0,0]);
release(#a);